perm filename A.TEX[TEX,DEK]11 blob sn#839105 filedate 1987-04-28 generic text, type T, neo UTF8
\catcode`?=\active
\def\answer{\def\a##1{{\global\let##1?\aftergroup##1}}\escapechar`H\lccode`!`?
 \lowercase{\expandafter\a\csname ow did this happen!\endcsname}}
\answer